form load
===========
Me.WebBrowser1.ScriptErrorsSuppressed = True
        WebBrowser1.Navigate("http://pastebin.com/")
====================
upload botn
=================
WebBrowser1.Document.All.Item("paste_code").InnerText = RichTextBox1.Text
        WebBrowser1.Document.All.Item("submit").InvokeMember("click")
==================
url botn
=====================
TextBox1.Text = WebBrowser1.Url.ToString